home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / growthre.sit / Growth Records / background_21634.txt < prev    next >
Text File  |  1988-02-06  |  6KB  |  276 lines
  1. -- background: 21634 from stack: in
  2. -- bmap block id: 22815
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   global identification, plotdata
  9.   push recent card
  10.   if plotdata is "true" then
  11.     click at 211,329
  12.     click at 87,327
  13.     click at 312,326
  14.   end if
  15.   put "false" into plotdata
  16. end openBackground
  17.  
  18.  
  19. function frameheight
  20. return 265
  21. end frameheight
  22.  
  23. function framewidth
  24. return 150
  25. end framewidth
  26.  
  27. function framebottom
  28. return 295
  29. end framebottom
  30.  
  31. function frameleft
  32. return 258
  33. end frameleft
  34.  
  35.  
  36.  
  37. -- part 1 (button)
  38. -- low flags: 00
  39. -- high flags: 0000
  40. -- rect: left=475 top=309 right=337 bottom=512
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 1012 / 1012
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: Return
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   visual effect iris close
  52.   pop card
  53. end mouseUp
  54.  
  55.  
  56.  
  57. -- part 2 (button)
  58. -- low flags: 00
  59. -- high flags: 0000
  60. -- rect: left=261 top=311 right=336 bottom=288
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 1013 / 1013
  63. -- text alignment: 1
  64. -- font id: 0
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: Next
  69. ----- HyperTalk script -----
  70. on mouseUp
  71.   visual effect wipe left
  72.   go to card id 14428
  73. end mouseUp
  74.  
  75.  
  76.  
  77. -- part 3 (button)
  78. -- low flags: 00
  79. -- high flags: 0000
  80. -- rect: left=230 top=311 right=336 bottom=257
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 1014 / 1014
  83. -- text alignment: 1
  84. -- font id: 0
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: Prev
  89. ----- HyperTalk script -----
  90. on mouseUp
  91.   visual effect wipe right
  92.   go to previous card
  93. end mouseUp
  94.  
  95.  
  96.  
  97. -- part 4 (button)
  98. -- low flags: 00
  99. -- high flags: 0000
  100. -- rect: left=0 top=313 right=342 bottom=32
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 21700 / 21700
  103. -- text alignment: 1
  104. -- font id: 0
  105. -- text size: 12
  106. -- style flags: 0
  107. -- line height: 16
  108. -- part name: Home
  109. ----- HyperTalk script -----
  110. on mouseUp
  111.   visual effect iris open
  112.   go Home
  113. end mouseUp
  114.  
  115.  
  116.  
  117. -- part 5 (button)
  118. -- low flags: 00
  119. -- high flags: A002
  120. -- rect: left=187 top=316 right=342 bottom=228
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 0 / 0
  123. -- text alignment: 1
  124. -- font id: 0
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: clear
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   put the userLevel into saveLevel
  132.   if the userLevel < 3 then set userLevel to 3 -- "Painting"
  133.   if the userLevel < 3 then exit mouseUp
  134.   clearScreen
  135.   reset paint
  136.   choose browse tool
  137.   set userLevel to saveLevel
  138.   put empty into field "label"
  139. end mouseUp
  140.  
  141.  
  142.  
  143. -- part 6 (button)
  144. -- low flags: 00
  145. -- high flags: A002
  146. -- rect: left=65 top=313 right=342 bottom=99
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 0 / 0
  149. -- text alignment: 1
  150. -- font id: 0
  151. -- text size: 12
  152. -- style flags: 0
  153. -- line height: 16
  154. -- part name: plot
  155. ----- HyperTalk script -----
  156. on mouseUp
  157.   global identification, ages
  158.   put the userLevel into saveLevel
  159.   if the userLevel < 3 then set userLevel to 3 -- "Painting"
  160.   if the userLevel < 3 then exit mouseUp
  161.  
  162.   reset paint
  163.   choose rect tool
  164.   set lineSize to 1
  165.   set filled to true
  166.  
  167.   put (frameLeft()-225) into horiz
  168.   set cursor to 4 -- watchCursor
  169.   put identification into field "label"
  170.   repeat with i = 1 to ages
  171.     put (frameBottom()+3) into yaxis
  172.     get line i of field "height" in card identification
  173.  
  174.     if (it < 49) or (it >145) then next repeat
  175.     put it into height
  176.  
  177.     put round((height-50)*1.85) into heightsplot
  178.     get line i of field "weight" in card identification
  179.     put it into weight
  180.     put round((weight)*5.47) into weightplot
  181.     if it is not empty then
  182.       add horiz to heightsplot
  183.       subtract weightplot from yaxis
  184.       set pattern to 12
  185.       drawPlot heightsplot,yaxis
  186.     end if
  187.   end repeat
  188.   reset paint
  189.   choose browse tool
  190.   set userLevel to saveLevel
  191. end mouseUp
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198. -- part 7 (button)
  199. -- low flags: 00
  200. -- high flags: A002
  201. -- rect: left=295 top=313 right=342 bottom=329
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 0 / 0
  204. -- text alignment: 1
  205. -- font id: 0
  206. -- text size: 12
  207. -- style flags: 0
  208. -- line height: 16
  209. -- part name: plot
  210. ----- HyperTalk script -----
  211. on mouseUp
  212.   global identification, ages
  213.   put the userLevel into saveLevel
  214.   if the userLevel < 3 then set userLevel to 3 -- "Painting"
  215.   if the userLevel < 3 then exit mouseUp
  216.  
  217.   reset paint
  218.   choose rect tool
  219.   set lineSize to 1
  220.   set filled to true
  221.  
  222.   put frameLeft() into horiz
  223.   set cursor to 4 -- watchCursor
  224.   put identification into field "label"
  225.   put field "minimum interval" in card identification into minimum
  226.   put (minimum/12) into minimum
  227.   repeat with i = ages down to 1
  228.     put frameBottom() into yaxis
  229.     get line i of field "age" in card identification
  230.  
  231.     if it < 1 then next repeat
  232.     put it into years
  233.     put (ages-(ages-i)-1) into start
  234.     repeat with j= start down to 1
  235.       put line j of field "age" in card identification into years1
  236.       if (years-years1) < minimum then next repeat
  237.       if (years-years1) >= minimum then exit repeat
  238.  
  239.     end repeat
  240.  
  241.     put ((years+years1)/2) into years
  242.     if years < 1 then next repeat
  243.     put round((years-1)*14.5) into yearsplot
  244.     get line i of field "growth velocity" in card identification
  245.     put it into height1
  246.     put round((height1)*13.5) into heightplot
  247.     if it is not empty then
  248.       add horiz to yearsplot
  249.       subtract heightplot from yaxis
  250.       set pattern to 12
  251.       drawPlot yearsplot,yaxis
  252.     end if
  253.   end repeat
  254.   reset paint
  255.   choose browse tool
  256.   set userLevel to saveLevel
  257. end mouseUp
  258.  
  259.  
  260.  
  261.  
  262.  
  263.  
  264. -- part 8 (field)
  265. -- low flags: 00
  266. -- high flags: 0000
  267. -- rect: left=271 top=24 right=38 bottom=451
  268. -- title width / last selected line: 0
  269. -- icon id / first selected line: 0 / 0
  270. -- text alignment: 1
  271. -- font id: 20
  272. -- text size: 10
  273. -- style flags: 0
  274. -- line height: 13
  275. -- part name: label
  276.